﻿Imports System.ComponentModel
Imports System.Xml.Serialization

<Serializable()>
Public Class UnitCustomInfo
    Implements ICloneable
    Implements INotifyPropertyChanged





    <XmlElement("unittype_id")>
    Private _UnitTypeId As Integer
    Property UnitTypeId As Integer
        Get
            Return _UnitTypeId
        End Get
        Private Set(ByVal value As Integer)

        End Set
    End Property







#Region "ICloneable"
    Function Clone() As Object Implements ICloneable.Clone
        Dim c = TryCast(MemberwiseClone(), UnitCustomInfo)
        Return c
    End Function
#End Region

#Region "INotifyPropertyChanged"
    'Public Event PropertyChanged(ByVal sender As Object, ByVal e As PropertyChangedEventArgs) Implements INotifyPropertyChanged.PropertyChanged

    Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged

    Private Sub OnPropertyChanged(Optional ByVal PropertyName As String = Nothing)
        RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(PropertyName))
    End Sub
#End Region

End Class